(mouse-insert-selection-internal): Use insert-for-yank, so that yank handlers

are run.

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index a327b589f5448dc5025344dd9f8d02931af6e830..a1209f827f196ea0c2b20b69860af54dc6fc8fe1 100644 (file)
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -737,7 +737,8 @@ If `mouse-yank-at-point' is non-nil, insert at point instead."
     (mouse-set-point event))
   (when mouse-sel-get-selection-function
     (push-mark (point) 'nomsg)
-    (insert (or (funcall mouse-sel-get-selection-function selection) ""))))
+  (insert-for-yank
+   (or (funcall mouse-sel-get-selection-function selection) ""))))
 
 ;;=== Handle loss of selections ===========================================